home *** CD-ROM | disk | FTP | other *** search
/ 1st Multimedia Mac Shareware / Multimedia Shareware CD-ROM - BetaCorp.iso / StackToolsƒ / Utilities / HardDiskProtect / stack_-1.xml < prev   
Encoding:
Extensible Markup Language  |  1992-08-12  |  3.4 KB  |  23 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>2971</cardID>
  8.     <listID>3711</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><true /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>function height r
  17. return (item 4 of r) - (item 2 of r)
  18. end height
  19.  
  20. function width r
  21. return (item 3 of r) - (item 1 of r)
  22. end width
  23.  
  24. on openstack
  25. hide menubar
  26. global flg,usrlvl
  27. set lockScreen to true
  28. set lockMessages to true
  29. push this card
  30. go to card "User Preferences" of stack "Home"
  31. put card field "User Level" into usrlvl
  32. pop card
  33. set lockScreen to false
  34. set the rect of card button id 4 of card id 4396 to 51,174,111,195
  35. global restarth,restartw
  36. put width(rect of button id 4 of card id 4396) into restartw
  37. put height(rect of button id 4 of card id 4396) into restarth
  38. hide menubar
  39. set userlevel to 2
  40. end openStack
  41. on startUp
  42. getHomeInfo
  43. pass startUp -- to a startUp XCMD, if present
  44. end startUp
  45.  
  46. on resume
  47. getHomeInfo
  48. pass resume -- to a resume XCMD, if present
  49. end resume
  50.  
  51. on getHomeInfo
  52. global stacks,applications,documents,userName
  53. set lockScreen to true
  54. set lockMessages to true
  55. push this card
  56. go to card "User Preferences" of stack "Home"
  57. put card field "User Name" into userName
  58. set userLevel to card field "User Level"
  59. set powerKeys to the hilite of button "Power Keys"
  60. set blindTyping to the hilite of button "Blind Typing"
  61. put field "paths" of card "stacks" into stacks
  62. put field "paths" of card "applications" into applications
  63. put field "paths" of card "documents" into documents
  64. pop card
  65. set lockScreen to false
  66. set lockMessages to false
  67. end getHomeInfo
  68.  
  69. on searchScript pattern,stackName -- search all scripts of a stack
  70. set lockMessages to true
  71. if stackName is not empty then go to stack stackName
  72.  
  73. if the script of this stack contains pattern
  74. then edit script of this stack
  75.  
  76. repeat with i = 1 to the number of bkgnds
  77. go to card 1 of bkgnd i
  78. if the script of this bkgnd contains pattern
  79. then edit script of bkgnd
  80.  
  81. repeat with j = 1 to the number of bkgnd buttons
  82. if the script of bkgnd button j contains pattern
  83. then edit script of bkgnd button j
  84. end repeat
  85.  
  86. repeat with j = 1 to the number of bkgnd fields
  87. if the script of bkgnd field j contains pattern
  88. then edit script of bkgnd field j
  89. end repeat
  90.  
  91. end repeat
  92.  
  93. repeat with i = 1 to the number of cards
  94. go card i
  95. if the script of this card contains pattern
  96. then edit script of this card
  97.  
  98. repeat with j = 1 to the number of card buttons
  99. if the script of card button j contains pattern
  100. then edit script of card button j
  101. end repeat
  102.  
  103. repeat with j = 1 to the number of card fields
  104. if the script of card field j contains pattern
  105. then edit script of card field j
  106. end repeat
  107.  
  108. end repeat
  109. set lockMessages to false
  110. end searchScript
  111.  
  112. on idle
  113. if the commandKey is down
  114. then
  115. beep 2
  116. answer "Don't Do That!"
  117. end if
  118. end idle
  119. on show
  120. beep 2
  121. answer "Don't Do That!"
  122. end show
  123. on edit
  124. beep 2
  125. answer "Don't Do That!"
  126. end edit
  127.  
  128. </script>
  129.     <background id="2666" file="background_2666.xml" name="" />
  130.     <card id="2971" file="card_2971.xml" marked="false" name="HDP1" owner="2666" />
  131.     <card id="4396" file="card_4396.xml" marked="false" name="" owner="2666" />
  132.     <card id="3921" file="card_3921.xml" marked="false" name="" owner="2666" />
  133.     <card id="4216" file="card_4216.xml" marked="false" name="" owner="2666" />
  134. </stack>
  135.